#!/usr/bin/perl

use GDBM_File;

dbmopen(%Dice,"$ARGV[1]",0666) || die "can't open";
dbmopen(%entries,"$ARGV[0]",0666) || die "can't open";
foreach $key (keys %entries)
{
	$prob = $entries{$key}."\n";
	$key =~ s/ /____/g;
	chomp($prob);
	$Dice{$key} = $prob;
	print $key."  ".$prob."\n";
}

dbmclose(%Dice);
dbmclose(%entries)
